PC Pro 1996 March/PCPRO0396.ISO/march/blender/shared.dir/00835_MOVIE SCRIPT.ls

Text File | 1995-09-24 | 3.3 KB | 123 lines

on startMovie
  global i, j, k, n, o, ADSET, BLENDER, DEST, volume, PLAYRATE
  set the exitLock to 1
  set the volume of sound 1 to 255
  set the volume of sound 2 to 255
  SETSPEAKER()
  puppetTransition(0)
  puppetPalette(0)
  cursor(0)
  set i to 0
  set the keyDownScript to "checkKey"
  if the machineType = 256 then
    repeat with n = 500 down to 1
      set the purgePriority of cast n to 2
    end repeat
  end if
end

on initRearWindow theColor
  global rwObj
  if the machineType <> 256 then
    if objectp(rwObj) then
      rwObj(mdispose)
    end if
    set rwObj to RearWindow(mnew, "M")
    rwObj(mIndexColorToWindow, theColor)
  end if
end

on disposeRearWindow
  global rwObj
  if the machineType = 256 then
    nothing()
  else
    if objectp(rwObj) then
      rwObj(mdispose)
    end if
  end if
end

on CONTROLS
  global CONTROLWINDOW, DEST
  if objectp(CONTROLWINDOW) then
    forget(CONTROLWINDOW)
  end if
  set horzOrigin to the stageLeft + 448
  set vertOrigin to the stageTop
  set CONTROLWINDOWrect to rect(horzOrigin, vertOrigin, horzOrigin + 192, vertOrigin + 60)
  set CONTROLWINDOW to window "CONTROLS"
  set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  set the fileName of CONTROLWINDOW to DEST & "CONTROLS"
  set the titleVisible of CONTROLWINDOW to 0
  set the modal of CONTROLWINDOW to 0
  set the windowType of CONTROLWINDOW to 2
  open(CONTROLWINDOW)
end

on endMOVIE
  global CONTROLWINDOW, DEST
  installMenu(0)
  if objectp(CONTROLWINDOW) then
    forget(CONTROLWINDOW)
  end if
  set horzOrigin to the stageLeft + 160
  set vertOrigin to the stageTop + 130
  set CONTROLWINDOWrect to rect(horzOrigin, vertOrigin, horzOrigin + 320, vertOrigin + 220)
  set CONTROLWINDOW to window "CONTROL"
  set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  set the fileName of CONTROLWINDOW to DEST & "CONTROL"
  set the titleVisible of CONTROLWINDOW to 0
  set the modal of window "CONTROL" to 1
  open(CONTROLWINDOW)
end

on menu
  global CONTROLWINDOW, DEST
  if objectp(CONTROLWINDOW) then
    forget(CONTROLWINDOW)
  end if
  set horzOrigin to the stageLeft + 468
  set vertOrigin to the stageTop
  set CONTROLWINDOWrect to rect(horzOrigin, vertOrigin, horzOrigin + 172, vertOrigin + 408)
  set CONTROLWINDOW to window "MENU"
  set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  set the fileName of CONTROLWINDOW to DEST & "MENU"
  set the titleVisible of CONTROLWINDOW to 0
  set the modal of CONTROLWINDOW to 0
  set the windowType of CONTROLWINDOW to 2
  open(CONTROLWINDOW)
end

on HELPMOVIE
  global CONTROLWINDOW2, DEST
  set horzOrigin to the stageLeft - 288
  set vertOrigin to the stageTop + 100
  set CONTROLWINDOW2rect to rect(horzOrigin, vertOrigin, horzOrigin + 430, vertOrigin + 206)
  set CONTROLWINDOW2 to window "HELP"
  set the rect of CONTROLWINDOW2 to CONTROLWINDOW2rect
  set the fileName of CONTROLWINDOW2 to DEST & "HELP"
  set the titleVisible of CONTROLWINDOW2 to 0
  set the windowType of CONTROLWINDOW2 to 2
  open(CONTROLWINDOW2)
  set the modal of CONTROLWINDOW2 to 0
end

on stopMovie
  finishMovie()
end

on finishMovie
  global CONTROLWINDOW, CONTROLWINDOW2
  set the modal of window "CONTROL" to 0
  set the modal of window "CONTROLS" to 0
  set the modal of window "MENU" to 0
  set the modal of window "HELP" to 0
  if objectp(CONTROLWINDOW) then
    forget(CONTROLWINDOW)
  end if
  if objectp(CONTROLWINDOW2) then
    forget(CONTROLWINDOW2)
  end if
end